home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / whisper / macro.cfg < prev    next >
Text File  |  1991-10-18  |  3KB  |  169 lines
  1. #---------------------------------------
  2. # System line macro comands founc defs
  3. #---------------------------------------
  4. mac_init {
  5.     mac_TOP()
  6. }
  7.  
  8. mac_CR  { tputs("\n") }
  9. mac_S   { tputs("S\n") }
  10. mac_E   { tputs("E\n") }
  11. mac_T   { tputs("T\n") }
  12. mac_RTU { tputs("/U\n") }
  13. mac_RTE { tputs("/E\n") }
  14. mac_END { tputs("OFF\n") }
  15.  
  16. mac_FORUM {
  17.     macset("CR","mac_CR",
  18.        "S", "mac_S",
  19.        "E", "mac_E",
  20.        "T", "mac_T",
  21.        "",  "",
  22.        "",  "",
  23.        "",  "",
  24.        "",    "",
  25.        "",    "",
  26.        "TOP","mac_TOP")
  27. }
  28. mac_RT {
  29.     macset("/U","mac_RTU",
  30.        "/E","mac_RTE",
  31.        "","",
  32.        "","",
  33.        "","",
  34.        "","",
  35.        "","",
  36.        "","",
  37.        "","",
  38.        "TOP","mac_TOP")
  39. }
  40. mac_TOP {
  41.     macset("FORUM","mac_FORUM",
  42.        "RT","mac_RT",
  43.        "OFF","mac_END",
  44.        "BREAK","mac_BREAK",
  45.        "","",
  46.        "","",
  47.        "TANGO","mac_TANGO",
  48.        "EUPONY","mac_EUPONY",
  49.        "CDPLAY","mac_CD",
  50.        "TALK","mac_TALK")
  51. }
  52. mac_TALK {
  53.     bakcol(WHIS_COL)
  54.  
  55.     if ( _TALK_FLG = 0 ) {
  56.     _TALK_FLG = 1
  57.     echo("\n\tささやきモ－ドになりました\n")
  58.     echo("\n\tONSEI.DICに登録されたことを\n")
  59.     echo("\n\tやさしくささやきます\n")
  60.     sleep(5)
  61.  
  62.     } else {
  63.  
  64.     _TALK_FLG = 0
  65.     echo("\n\n\tささやきをやめました\n")
  66.     sleep(2)
  67.     }
  68. }
  69. mac_CD_stop { cd_stop }
  70. mac_CD_back { cd_back }
  71. mac_CD_play { cd_play }
  72. mac_CD_next { cd_next }
  73. _mac_CD_vol_down { cd_vol_down }
  74. _mac_CD_vol_up   { cd_vol_up   }
  75. mac_CD {
  76.     macset(" STOP","mac_CD_stop",
  77.        " BACK","mac_CD_back",
  78.        " PLAY","mac_CD_play",
  79.        " NEXT","mac_CD_next",
  80.        "","",
  81.        " VOL-","_mac_CD_vol_down",
  82.        " VOL+","_mac_CD_vol_up",
  83.        "","",
  84.        "","",
  85.        "TOP","mac_TOP")
  86. }
  87. mac_BREAK {
  88.     bakcol(MIKE_COL)
  89.     echo("\n\n\tどひゃ・・BREAK信号を送るよ\n")
  90.     echo("\n\t僕しんな－いっと！\n")
  91.     break_out()
  92. }
  93. mac_TANGO {
  94.     tango()
  95. }
  96.  
  97. mac_EUP_stop {
  98.     if ( EUP ) { return }
  99.     EUP_QUE = "\(NOW_EUP) \(EUP_QUE)";
  100.     shift(OLD_EUP)
  101.     eupstop()
  102.     EUP_REPLAY_FLG = 0;
  103. }
  104. mac_EUP_back {
  105.     if ( EUP ! "" ) {
  106.     EUP_QUE = "\(NOW_EUP) \(EUP_QUE)";
  107.     eupstop()
  108.     }
  109.     NOW_EUP - OLD_EUP;
  110.     shift(OLD_EUP)
  111.     if ( NOW_EUP ) { return }
  112.     EUP_REPLAY_FLG = 1;
  113.     eup(NOW_EUP)
  114. }
  115. mac_EUP_play {
  116.     if ( EUP ! "" ) { return }
  117.     NOW_EUP - EUP_QUE;
  118.     shift(EUP_QUE)
  119.     if ( NOW_EUP ) { return }
  120.     EUP_REPLAY_FLG = 1;
  121.     eup(NOW_EUP)
  122. }
  123. mac_EUP_next {
  124.     if ( EUP ! "" ) { 
  125.     OLD_EUP = "\(NOW_EUP) \(OLD_EUP)";
  126.     eupstop()
  127.     }
  128.     NOW_EUP - EUP_QUE;
  129.     shift(EUP_QUE)
  130.     if ( NOW_EUP ) { return }
  131.     EUP_REPLAY_FLG = 1;
  132.     eup(NOW_EUP)
  133. }
  134. mac_EUP_sts {
  135.     bakcol(WHIS_COL)
  136.     arg - OLD_EUP;
  137.     if ( arg ) { arg = "なかったかな？" }
  138.     echo("\n\n\t前の曲は \(arg)\n")
  139.     arg = EUP;
  140.     if ( arg ) { arg = "うう演奏してない" }
  141.     echo("\n\tこの曲は \(arg)\n")
  142.     arg - EUP_QUE;
  143.     if ( arg ) { arg = "予定なしかな？" }
  144.     echo("\n\t次の曲は \(arg)\n")
  145.     sleep(5)
  146. }
  147. mac_EUPONY {
  148.     macset(" STOP","mac_EUP_stop",
  149.        " BACK","mac_EUP_back",
  150.        " PLAY","mac_EUP_play",
  151.        " NEXT","mac_EUP_next",
  152.        "","",
  153.        "","",
  154.        "EUPONY","mac_EUP_sts",
  155.        "","",
  156.        "","",
  157.        "TOP","mac_TOP")
  158. }
  159. endof_eup {
  160.     OLD_EUP = "\(EUP) \(OLD_EUP)";
  161.     NOW_EUP - EUP_QUE;
  162.     shift(EUP_QUE)
  163.     if ( NOW_EUP ) {
  164.     EUP_REPLAY_FLG = 0;
  165.     } else {
  166.     eup(NOW_EUP)
  167.     }
  168. }
  169.